home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / lotto 6_49.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  374b  |  20 lines
  1. 10 REM LOTTO 6/49 NUMBER GENERATOR
  2. 20 CLR:X=RND(-TI):PRINT"[147][144]":POKE53280,6
  3. 30 PRINT"LOTTO 6/49 NUMBER GENERATOR"
  4. 40 PRINT:PRINT
  5. 50 DIMX(49),Y(49)
  6. 60 FORI=1TO49:X(I)=I:NEXT
  7. 70 FORI=1TO6
  8. 80 X=INT(RND(1)*49)+1
  9. 90 IFY(X)=1THEN80
  10. 100 Y(X)=1:NEXT
  11. 110 FORI=1TO49
  12. 120 IFY(I)=1THENPRINTX(I);SPC(3);
  13. 130 NEXT
  14. 140 PRINT:PRINT
  15. 150 FORI=1TO1000:NEXT
  16. 160 PRINT"WOULD YOU LIKE ANOTHER SET OF NUMBERS?  (Y/N)..."
  17. 170 GETX$:IFX$=""THEN170
  18. 180 IFX$="Y"THEN20
  19. 190 CLR:PRINT"[147]"
  20.